home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / MAJOR / Process / wavemix-tonality < prev   
Encoding:
Text File  |  1998-10-23  |  1.1 KB  |  30 lines  |  [TEXT/ScoM]
  1. wavemix-tonality len amplitude rnd-init min max tonality
  2.  
  3. Adds a random sine wave from range min..max of len to each tonality with amplitude. Makes symmetric changes to the tonality. 
  4.  
  5. (wavemix-tonality 
  6.  4 1.5 0.4423 1 4
  7.  (activate-tonality 
  8.   (d min 1 3) (d min 1 3) (d min 1 3) (d min 1 3)
  9.   (d min 1 3) (d min 1 3) (d min 1 3) (d min 1 3)
  10.   (d min 1 3) (d min 1 3) (d min 1 3) (d min 1 3)
  11.   (d min 1 3) (d min 1 3) (d min 1 3) (d min 1 3)))
  12.  
  13. (wavemix-tonality 
  14.  4 1.5 0.324423 1 4
  15.  (activate-tonality 
  16.   (d min 1 3) (d min 1 3) (d min 1 3) (d min 1 3)
  17.   (d min 1 3) (d min 1 3) (d min 1 3) (d min 1 3)
  18.   (d min 1 3) (d min 1 3) (d min 1 3) (d min 1 3)
  19.   (d min 1 3) (d min 1 3) (d min 1 3) (d min 1 3)))
  20.  
  21. Or non-symmetric, if a non-equal length is used. This makes the modulation waves to be scattered over tonalities which leads to non-symmetric distortions. 
  22.  
  23. (wavemix-tonality 
  24.  3 1.5 0.4423 1 2
  25.  (activate-tonality 
  26.   (d min 1 3) (d min 1 3) (d min 1 3) (d min 1 3)
  27.   (d min 1 3) (d min 1 3) (d min 1 3) (d min 1 3)
  28.   (d min 1 3) (d min 1 3) (d min 1 3) (d min 1 3)
  29.   (d min 1 3) (d min 1 3) (d min 1 3) (d min 1 3)))
  30.